Bio-rythm printout 1 year ( 603 pas de programme )

	Enter birth date, EXE. Enter todays date, EXE. Use with printer only.

10 VAC
20 INPUT "M,D,Y",A,B,C
30 INPUT "M,D,Y",D,E,F
35 G=23:H=28:I=33:J=0:K=0:L=0:N=0:O=0:P=0:Q=0:R=0:S=0:T=0
36 Z=1
40 J=(A*30.4375)+(B-30.4375)
45 K=(D*30.4375)+(E-30.4375)
50 N=F-C
60 P=(F-C)*365.25
65 Q=K-J+P
66 GOSUB 70:IF U=2 THEN 68
67 G=0:G=H:GOTO 66
68 G=0:G=I:GOTO 66
70 R=INT(Q/G)
75 S=INT(R*G)-Q
79 T=INT(S):U=U+1
80 IF U=1;Y=T:GOTO 100
81 IF U=2 THEN 90
82 IF U=3 THEN 110
90 W=T
100 T=0:RETURN
110 X=T:GOTO 121
120 T=0:RETURN
121 V=ABS(V):W=ABS(W):X=ABS(X):GOTO 188
122 MODE 7:PRINT Z;" ";Y;W;X:MODE 8:Z=Z+1
124 IF V<=23;V=V+1
125 IF V=24;V=1
126 IF W<=28;W=W+1
127 IF W=29;W=1
128 IF X<=33;X=X+1
129 IF X=34;X=1
130 IF Z=366 THEN 200
131 GOTO 122
188 MODE 7:PRINT A;B;C;" ";D;E;F:MODE 8:GOTO 122
200 PRINT "HIGH DAYS 6->9,MEDIUM 12->16";
210 PRINT ",LOW 18->24,MEDIUM GOING UP 23->33"
215 GOTO 10